home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 November & December / rerun-1987-11-12.d64 / delete 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  503b  |  13 lines
  1. 63980 rem delete 64 by richard de a'morelli
  2. 63981 poke53281,1:poke53280,6:b=820:h=256:print"[147]";
  3. 63982 input"erase from line# ";f:input"        to line# ";t
  4. 63983 input"increment (1-255)";i:ifi<1ori>h-1orf<1orf>63980orf>tthen63991
  5. 63984 print"[147] ^erasing":pokeb+4,i
  6. 63985 pokeb,f/h:pokeb+1,f-peek(b)*h:pokeb+2,t/h:pokeb+3,t-peek(b+2)*h
  7. 63986 h=256:b=820:d=peek(b)*h+peek(b+1)
  8. 63987 print""d"":ifd=>peek(b+2)*h+peek(b+3)then63991
  9. 63988 l=peek(b+1)+peek(b+4):ifl>h-1thenpokeb,peek(b)+1:l=l-h
  10. 63989 pokeb+1,l
  11. 63990 print"goto63986":poke631,19:forx=0to2:poke632+x,13:next:poke198,4:end
  12. 63991 print"[147]delete 64 finished!":forj=btob+4:pokej,0:next:end
  13.